home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / ciolib.pas < prev    next >
Pascal/Delphi Source File  |  1995-04-22  |  3KB  |  127 lines
  1. (*             CIOLib.i 
  2.                ________ 
  3.        (C) 1986  Erik C. Warren 
  4.     Routines to access CIO calls. 
  5. Last Updated:  30 July, 1986 
  6.   These routines are in the public 
  7. domain and may not be sold, except for 
  8. the price of the software media, with- 
  9. out the expressed, written permission 
  10. of the author.                       *) 
  11.  
  12. FUNCTION Close(IOCB_Num: Integer): Integer; 
  13. BEGIN 
  14.  Close:= 1; 
  15.  IOCB_Num:= IOCB_Num * 16; 
  16. #A 
  17.   stx _t 
  18.   ldy #7 
  19.   lda (_sp),y  ;IOCB 
  20.   tax 
  21.   lda #12      ;close command 
  22.   sta $342,x 
  23.   jsr $e456    ;ciov 
  24.   tya          ;same as icsta 
  25.   ldy #5 
  26.   sta (_sp),y  ;store in Close 
  27.   ldx _t 
  28. # 
  29. END;(* Close *) 
  30.  
  31. FUNCTION Open(IOCB_Num,Ax1,Ax2: Integer;               VAR Dev: Device_String) 
  32.              : Integer; 
  33. BEGIN 
  34.  Open:= 1; 
  35.  IOCB_Num:= IOCB_Num * 16; 
  36. (*  stack: opn  num  ax1  ax2  dev   
  37.             5    13   11   9    7    *) 
  38. #A 
  39.  stx _t 
  40.  ldy #13 
  41.  lda (_sp),y  ;IOCB 
  42.  tax 
  43.  lda #3       ;open command 
  44.  sta $342,x 
  45.  dey  
  46.  dey          ;11 
  47.  lda (_sp),y  ;icax1 
  48.  sta $34a,x 
  49.  dey 
  50.  dey          ;9 
  51.  lda (_sp),y  ;icax2 
  52.  sta $34b,x 
  53.  dey          ;8 
  54.  lda (_sp),y  ;dev MSB 
  55.  sta $345,x   ;icbah 
  56.  dey          ;7 
  57.  lda (_sp),y  ;icbal 
  58.  sta $344,x 
  59.  jsr $e456    ;ciov 
  60.  tya          ;same as icsta 
  61.  ldy #5 
  62.  sta (_sp),y  ;store in Open 
  63.  ldx _t 
  64. # 
  65. END;(* Open *) 
  66.  
  67. FUNCTION Get_Byte(IOCB_Num: Integer; 
  68.                     VAR GB: Integer) 
  69.                  : Integer; 
  70. VAR TB: Integer; 
  71. BEGIN 
  72.  TB:= 0; 
  73.  Get_Byte:= 1; 
  74.  GB:= 0; 
  75.  IOCB_Num:= IOCB_Num * 16; 
  76. (*  stack: get  num   gb   tb 
  77.            7/8 11/12 9/10 5/6      *) 
  78. #A 
  79.  stx _t 
  80.  ldy #11 
  81.  lda (_sp),y  ;IOCB 
  82.  tax 
  83.  lda #7       ;get char command 
  84.  sta $342,x 
  85.  lda #$00     ;zero out the unused 
  86.  sta $348,x   ;store in accumulator 
  87.  sta $349,x   ;...after CIOV jump 
  88.  jsr $e456 
  89.  sty _t+1     ;hold temporarily 
  90.  ldy #5 
  91.  sta (_sp),y  ;put byte in GB 
  92.  lda _t+1     ;get status back 
  93.  ldy #7 
  94.  sta (_sp),y  ;store in Get_Byte 
  95.  ldx _t 
  96. # 
  97. GB:= TB 
  98. END;(* Get_Byte *) 
  99.  
  100. FUNCTION Put_Byte(IOCB_Num: Integer; 
  101.                         PB: Integer) 
  102.                  : Integer; 
  103. BEGIN 
  104.  Put_Byte:= 1; 
  105.  IOCB_Num:= IOCB_Num * 16; 
  106. (*  stack: put  num   pb 
  107.             5    9    7            *) 
  108. #A 
  109.  stx _t 
  110.  ldy #9 
  111.  lda (_sp),y  ;IOCB 
  112.  tax 
  113.  lda #11      ;put char command 
  114.  sta $342,x 
  115.  lda #$00     ;zero out the unused 
  116.  sta $348,x   ;put from accumulator 
  117.  sta $349,x 
  118.  ldy #7 
  119.  lda (_sp),y  ;put PB in accumulator 
  120.  jsr $e456 
  121.  tya          ;same as icsta 
  122.  ldy #5 
  123.  sta (_sp),y  ;store in Put_Byte 
  124.  ldx _t 
  125. # 
  126. END;(* Put_Byte *) 
  127.